perm filename XFOO.GRU[X,AIL] blob
sn#187893 filedate 1975-11-23 generic text, type T, neo UTF8
NAME BLOCK
00 FOO
000007 000000
PROGRAM
LOCATION 000000 000000'
334000 000000 7 ,000,000,000,000,000 SKIPA 000000
476000 000000 O , @ ,000,000,000,000 SETOM 000000
264000 000000 - ,000,000,000,000,000 JSR 000000
261740 000012 , , > ,000,000,005,000 PUSH 17,000012
261740 000000 , , > ,000,000,000,000 PUSH 17,000000
261740 000016 , , > ,000,000,007,000 PUSH 17,000016
541517 777776 X , 4 ,177,177,177,000 HRRI 12,777776(17)
PROGRAM
LOCATION 000000 000007'
260740 000000 , ,036,000,000,000,000 PUSHJ 17,000000
201040 001750 , " ,000,003, t ,000 MOVEI 01,001750
202040 000000 , B ,000,000,000,000 MOVEM 01,000000
201540 000000 , 6 ,000,000,000,000 MOVEI 13,000000
260740 000000 , ,036,000,000,000,000 PUSHJ 17,000000
200512 000000 ,024, P ,000,000,000 MOVE 12,000000(12)
274740 000000 / ,036,000,000,000,000 SUB 17,000000
263740 000000 , ,176,000,000,000,000 POPJ 17,000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
LINK BLOCK
000000 000006
000000 000020'
PROGRAM
LOCATION 000000 000021'
000000 000003' 000,000,000,000,001, @ 000 000003'
000000 000003 000,000,000,000,001, @ 000 000003
440700 000000 H ,034,000,000,000,000 ANDCB 16,000000
020040 000000 004,002,000,000,000,000 020 01,000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000002 000,000,000,000,001,000 000 000002
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000021' 000000 000,001,010,000,000,000 000 @000000(01) (R)
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
740040 000000 x ,002,000,000,000,000 BLKI 01,000000
000000 000000 000,000,000,000,000,000 000 000000
432371 700000 F , O , O ,000,000,000 XORM 07,@700000(11)
000000 000000 000,000,000,000,000,000 000 000000
777777 777777 177,177,177,177,177, @ CONSO 17,@777777(17)
PROGRAM
LOCATION 000000 000042'
000003 000003 000,000,030,000,001, @ 000 000003(03)
INTERNAL REQUEST
000011' 000017'
000004' 000031'
000027' 000035'
000012' 000035'
000023' 000037'
000015' 000042'
SYMBOLS
14 FOO 000000 000001
10 FOO. 000000 000007'
10 I 000000 000017'
10 FOO 000000 000003'
60 BEXIT 000000 000013'
60 .UINIT 000000 000007'
LIBRARY REQUEST
SYS :LIBSA8.REL
PROGRAM
LOCATION 000000 000043'
000000 000000 000,000,000,000,000,000 000 000000
000011 000010 000,000, H ,000,004,000 000 000010(11)
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000' 000,000,000,000,000,000 000 000000'
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
000000 000040' 000,000,000,000,020,000 000 000040'
000000 000041' 000,000,000,000,020, @ 000 000041'
102200 000017 020, H ,000,000,007, @ 102 04,000017
000000 000021' 000,000,000,000,010, @ 000 000021'
000000 000000 000,000,000,000,000,000 000 000000
000000 000000 000,000,000,000,000,000 000 000000
LINK BLOCK
000000 000002
000000 000043'
STARTING ADDRESS
000000 000000'
SYMBOLS
60 SAILOR 000000 000002'
60 RPGSW 000000 000001'
SYMBOLS
10 S. 000000 000000'
10 P 000000 000017
10 SP 000000 000016
10 ARERR 007000 000000
10 FLOAT 002000 000000
10 FIX 003000 000000
END BLOCK
000000 000064'